home *** CD-ROM | disk | FTP | other *** search
- on startMovie
- global gNumberofSlides, gCurrentSlide, gPause, gOnIBM, gSoundPath
- identifyPlatform()
- if gOnIBM then
- set gSoundPath to the pathName & "m09h11\"
- else
- set gSoundPath to the pathName & "m09h11:"
- end if
- formatHyperText()
- set gNumberofSlides to 10
- set gCurrentSlide to 1
- set gPause to 0
- end
-
- on formatHyperText
- global gOnIBM
- if gOnIBM then
- set the textFont of field "hypertext definition" to "Arial"
- set the textSize of field "hypertext definition" to 12
- else
- set the textFont of field "hypertext definition" to "Geneva"
- set the textSize of field "hypertext definition" to 12
- end if
- end
-